home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Standards 1994 January / InfoMagic Standards - January 1994.iso / hyperrfc / setup.inf < prev    next >
Text File  |  1993-03-06  |  6KB  |  190 lines
  1. SetVariable (TitleName, "RFCs in Hypertext")    ; Name of the title
  2.  
  3. SetVariable (ViewerSize, 6 564 970)    ; Size of the Viewer files that will
  4.                     ;  be copied over (measured in bytes)
  5. SetVariable (ViewerPath, "C:\VIEWER")    ; Default path for the Viewer
  6.  
  7. ; Set the title of all dialog windows.
  8. ;
  9. WindowTitle (<TitleName> " Setup")
  10.  
  11.  
  12. ; Set the instruction text used in the initial instructions window.
  13. ; Add Help instructions if the file SETUP.HLP exists.
  14. ;
  15. SetVariable (InitialInstructions, 
  16.     "Click on {\b OK} or press {\b Enter} to continue.  "
  17.     "To abort the setup, click on the {\b Exit} button at the "
  18.     "bottom right corner of the screen, or press {\b F3}.  ")
  19.  
  20. IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
  21.  
  22.     Goto (DisplayInitialMessage)
  23. AddHelpInstructions:
  24.     SetVariable (InitialInstructions, 
  25.         <InitialInstructions> "You can always obtain help by "
  26.         "clicking on the {\b Help} button or pressing {\b F1}.  ")
  27.  
  28. DisplayInitialMessage:
  29. DisplayMessage (
  30.     "The Setup program will install RFC's In HyperText"
  31.     " and the Multimedia Viewer on your hard disk.",
  32.     <InitialInstructions>)
  33.  
  34. GetFromWinIni (ViewerPathTemp, "Multimedia Viewer", "ViewerPath", "Undefined")
  35.  
  36. IfEqualGoto (<ViewerPathTemp>, "Undefined", PromptViewerPath)
  37. SetVariable (ViewerPath, <ViewerPathTemp>)
  38.  
  39.  
  40. AskAgain:
  41.  
  42. PromptViewerPath:
  43. PromptPath (ViewerPath, <ViewerPath>,
  44.     "Where should Setup install the Multimedia Viewer?",
  45.     "Modify the default path if necessary, and then click on {\b OK} or "
  46.     "press {\b Enter} to continue.  ",
  47.     "The path is currently not valid.  You must specify a drive "
  48.     "letter, a colon, and a directory from the root of the drive.  ")
  49.  
  50. GetSpaceAvailable (SpaceAvailable, <ViewerPath>)
  51.  
  52. IfLowerGoto (<ViewerSize>, <SpaceAvailable>, ViewerPathOK)
  53.  
  54. AskYesNo (Prompt, "Yes",
  55.     "There may not be enough space to install the Multimedia Viewer.  "
  56.     "Would you like to enter a new path for the files?  ",
  57.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  58.     "Multimedia Viewer files.\par "
  59.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  60.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  61.     "You may wish to exit Setup and make some more space on your hard "
  62.     "disk.  Run Setup again when there is enough space on your hard "
  63.     "disk.  ")
  64. IfEqualGoto (<Prompt>, "Yes", PromptViewerPath)
  65.  
  66.  
  67. ViewerPathOK:
  68. AskYesNo (AskAgain, "No", 
  69.     "Would you like to change anything before proceeding with "
  70.     "the installation?",
  71.     "Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
  72.     "Click on {\b No} or press {\b 'N'} to proceed with installation.  ")
  73. IfEqualGoto (<AskAgain>, "Yes", AskAgain)
  74.  
  75. SetVariable (TitlePath, <ViewerPath> "INTERNET")
  76. MakePath (<ViewerPath>)
  77. MakePath (<TitlePath>)
  78.  
  79. OpenCopyProgress (
  80.     "Setup is copying the Multimedia Viewer runtime files.",
  81.     "Please wait while Setup is copying files.")
  82.  
  83. CopyFile ("FTENGINE.DLL", <ViewerPath> "\FTENGINE.DLL",   41000)
  84. CopyFile ("FTUI.DLL",     <ViewerPath> "\FTUI.DLL",       54000)
  85. CopyFile ("VIEWER.EXE",   <ViewerPath> "\VIEWER.EXE",    241000)
  86. CopyFile ("QUICKEYS.EXE",   <ViewerPath> "\QUICKEYS.EXE",    16960)
  87. CopyFile ("QUICKEYS.HLP",   <ViewerPath> "\QUICKEYS.HLP",    16442)
  88. CopyFile ("QKHOOK.DLL",     <ViewerPath> "\QKHOOK.DLL",       7312)
  89.  
  90. CloseCopyProgress ()
  91.  
  92. OpenCopyProgress (
  93.     "Setup is copying the Multimedia Viewer Book files.",
  94.     "Please wait while Setup is copying files.")
  95.  
  96. CopyFile ("INTERNET.MVB", <TitlePath> "\INTERNET.MVB", 2608210)
  97. CopyFile ("INTERNET.IND", <TitlePath> "\INTERNET.IND", 3366912)
  98. CopyFile ("RFCS.ICO", <TitlePath> "\RFCS.ICO", 766)
  99.  
  100. CloseCopyProgress ()
  101.  
  102.     ;;*************Begin Title Specific Section***************************
  103.  
  104. OpenProgmanProgress (
  105.     "Setup is adding Program Manager groups.",
  106.     "Please wait while Setup adds {\b Program Manager} groups".)
  107.  
  108. OpenProgmanGroup ("Viewer", Delete)    ;; Adding the group "Viewer".
  109.  
  110. AddProgmanItem (<TitleName>,
  111.     <ViewerPath> "VIEWER.EXE " <TitlePath>    "\INTERNET.MVB",
  112.     <TitlePath> "\RFCS.ICO", 0)
  113. AddProgmanItem (QuickKeys,
  114.     <ViewerPath> "QUICKEYS.EXE ",
  115.     <ViewerPath> "QUICKEYS.EXE", 0)
  116.  
  117. CloseProgmanProgress ()
  118.  
  119. AddToWinIni ("Multimedia Viewer", "ViewerPath", <ViewerPath>)
  120. AddToWinIni ("Extensions", "mvb", "viewer.exe ^.mvb")
  121.  
  122. ;ModifyAutoexec (<ViewerPath>, "", "", "AskInstructions", "Review", "Save")
  123.  
  124. IfIncompleteGoto (Incomplete)
  125.     SetVariable (Message, 
  126.         "The Setup program has successfully installed the "
  127.         "Multimedia Viewer and "
  128.         <TitleName> ".%n%n")
  129.     Goto (CheckAutoexec)
  130. Incomplete:
  131.     SetVariable (Message,
  132.         "Setup has finished, but the installation was incomplete.  "
  133.         "You should correct any problems (such as insufficient disk "
  134.         "space, missing source files, or locked directories) and run "
  135.         "Setup again.%n%n")
  136.  
  137.  
  138. CheckAutoexec:
  139.  
  140.     ;;====================================================================
  141.     ;; IfMustModifyGoto (Label)
  142.     ;; ------------------------
  143.     ;; This command will branch to the label 'Label' if Setup had to 
  144.     ;; modify the AUTOEXEC.BAT file, but the user chose to do the
  145.     ;; modifications themselves later.
  146.     ;;====================================================================
  147.  
  148. ;IfMustModifyGoto (MustModify)
  149.  
  150.     ;;====================================================================
  151.     ;; IfMustRebootGoto (Label)
  152.     ;; ------------------------
  153.     ;; This command will branch to the label 'Label' if Setup has
  154.     ;; modified the AUTOEXEC.BAT file and the user must now reboot their
  155.     ;; computer.
  156.     ;;====================================================================
  157.  
  158. ;IfMustRebootGoto (MustReboot)
  159. Goto (End)
  160.  
  161.  
  162. MustModify:
  163.  
  164. SetVariable (Message, 
  165.     <Message> "Remember to modify your AUTOEXEC.BAT file and reboot your "
  166.     "computer before using the Multimedia Viewer.%n%n")
  167. Goto (End)
  168.  
  169.  
  170. MustReboot:
  171.  
  172. SetVariable (Message,
  173.     <Message> "For the changes to your AUTOEXEC.BAT file to come into "
  174.     "effect, you must reboot your computer.  To do this, you must first "
  175.     "exit Windows and then simultaneously hold down the Ctrl, Alt, and "
  176.     "Del keys.  You must do this before using the Multimedia Viewer.%n%n")
  177.  
  178.  
  179. End:
  180.  
  181. ;SetVariable (Message, 
  182. ;    <Message> "The advantages of being a registered user are numerous.  "
  183. ;    "Please send in your Product Registration Card TODAY.")
  184.  
  185. DisplayMessage (<Message>, 
  186.     "Click on {\b OK} or press {\b Enter} to return to the "
  187.     "Program Manager.")
  188.  
  189.  
  190.